home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / Picticon1_4.lha / Picticon / Source / mod / iff.e < prev    next >
Text File  |  1995-06-07  |  476b  |  24 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'libraries/iffparse','iffparse'
  5.  
  6. PROC savevaluechunk(handle,form,chunk,longvalue)
  7.     DEF buffer
  8.     buffer:=New(4)
  9.     IF (buffer)
  10.         PushChunk(handle,form,chunk,4)
  11.             PutLong(buffer,longvalue)
  12.             WriteChunkBytes(handle,buffer,4)
  13.         PopChunk(handle)
  14.         Dispose(buffer)
  15.     ENDIF
  16. ENDPROC
  17.  
  18. PROC getvaluechunk(handle,form,chunk,longvalue)
  19.     DEF sp=NIL:PTR TO storedproperty
  20.     IF (sp:=FindProp(handle,form,chunk))
  21.         longvalue:=Long(sp.data)
  22.     ENDIF
  23. ENDPROC longvalue
  24.